The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwlt00.dir/00024_Script_24

Text File | 1994-11-15 | 5KB | 186 lines

on startMovie
  global inFrame, nowFrame, nowMovie, currWorld, realWorld, currMM
  global lastFrame
  cursor 4
  set dialogOn = FALSE
  set currMM = "FLWMM"
  set nowFrame = "ltear867000f°°"
  getCurrCast
  puppetsprite 9, TRUE
  puppetSprite 11, TRUE
  puppetSprite 12, TRUE
  puppetSprite 4, TRUE
  puppetSprite 8, TRUE
  set the immediate of sprite 11 to TRUE
  set the immediate of sprite 12 to TRUE
  puppetSprite 20, TRUE
  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  set the immediate of sprite 20 to TRUE
  set the immediate of sprite 23 to TRUE
  set realWorld = the number of cast A12
  set currworld = "w01"
end startMovie

on stepMovie
  global nowFrame,currFrame
  if nowFrame <> currFrame then
    seeAlsoList
    set currFrame = nowFrame
  end if
end stepMovie

on stopMovie
  put " " into field "seeAlsoText"
  set the castNum of sprite 21 to 1050
  puppetSprite 21, FALSE
  updateStage
end stopMovie

on saveLocals
  global lastFrame, nowFrame, lastMovie, origLocH
  set lastMovie = the movie
  set lastFrame = nowFrame
end saveLocals

on ltForStep
  go to frame "ltear867001°°°" of movie "FLWLT01"
end ltForStep

on ltBackStep
  beep
end ltBackStep

on getCurrCast
  global currUp1, currUp2, currUp3, currUp4, currUp5
  global nowFrame
  put chars(nowFrame,3,8) into currMain
  set currUp1 = the number of cast (currMain & "001up")
  set currUp2 = currUp1 + 1
  set currUp3 = currUp1 + 2
  set currUp4 = currUp1 + 3
  set currUp5 = currUp1 + 4
end getCurrCast

on checkNav
  if rollover(11) then
    set the castNum of sprite 11 to the number of cast "rightUp"
  else
    set the castNum of sprite 11 to the number of cast "rightRt"
  end if
  cursor -1
  updateStage
end checkNav

on buttonState
  global FrankNav, bflag, nowFrame, noTx, dialogOn

  if dialogOn = FALSE then

    --sticking local call here for convenience
    worldLite
    if the mouseV > 200 or bFlag = TRUE then
      set bFlag = FALSE
      doState
    end if
  end if
end buttonState

on scrollRight
  if the clickon = 11 then
    sound stop 1
    startTimer
    repeat while the timer < 2
      set the castNum of sprite 11 to the number of cast "rightDn"
      updateStage
    end repeat
    timeRight
    flush
  end if
end scrollRight

on scrollLeft
  if the clickon = 12 then
    sound stop 1
    startTimer
    repeat while the timer < 2
      set the castNum of sprite 12 to the number of cast "leftDn"
      updateStage
    end repeat
    timeLeft
    flush
  end if
end scrollLeft

on timeLeft
  beep
end timeLeft

on timeRight
  go to movie "FLWLT02"
end timeRight

on worldLite
  global currWorld, realWorld
  if rollover(9) then
    set the castNum of sprite 9 to the number of cast currWorld
  else
    set the castNum of sprite 9 to the number of cast realWorld
  end if
end worldLite

on rollVLB1
  global currUp1, currUp2, currUp3, currUp4, currUp5
  if the mouseH >168 and the mouseH < 282 and the mouseV > 158 and the mouseV < 225 then
    set the castNum of sprite 4 to currUp1
    if the mouseDown then
      set the castNum of sprite 4 to the number of cast "allDown"
    end if
  else if the mouseH > 251 and the mouseH < 334 and the mouseV > 75 and the mouseV < 156 then
    set the castNum of sprite 4 to currUp2
    if the mouseDown then
      set the castNum of sprite 4 to the number of cast "allDown"
    end if
  else if the mouseH > 337 and the mouseH < 452 and the mouseV > 140 and the mouseV < 225 then
    set the castNum of sprite 4 to currUp3
    if the mouseDown then
      set the castNum of sprite 4 to the number of cast "allDown"
    end if
  else if the mouseH > 454 and the mouseH < 538 and the mouseV > 75 and the mouseV < 172 then
    set the castNum of sprite 4 to currUp4
    if the mouseDown then
      set the castNum of sprite 4 to the number of cast "allDown"
    end if
  else if the mouseH > 532 and the mouseH < 618 and the mouseV > 152 and the mouseV < 225 then
    set the castNum of sprite 4 to currUp5
    if the mouseDown then
      set the castNum of sprite 4 to the number of cast "allDown"
    end if
  else
    set the castNum of sprite 4 to the number of cast "allDown"
  end if
  updateStage
end rollVLB1

on jumpVLB1
  global dialogOn
  if dialogOn = FALSE then
    sound stop 1
    if the clickOn < 7 or the clickOn > 23 then
      if the mouseH >168 and the mouseH < 282 and the mouseV > 158 and the mouseV < 225 then
        go to frame "ltear867001°°°" of movie "FLWLT01"
      else if the mouseH > 251 and the mouseH < 334 and the mouseV > 75 and the mouseV < 156 then
        go to frame "ltear867002°°°" of movie "FLWLT01"
      else if the mouseH > 337 and the mouseH < 452 and the mouseV > 140 and the mouseV < 225 then
        go to frame "ltear867003°°°" of movie "FLWLT01"
      else if the mouseH > 454 and the mouseH < 538 and the mouseV > 75 and the mouseV < 172 then
        go to frame "ltear867004°°°" of movie "FLWLT01"
      else if the mouseH > 532 and the mouseH < 618 and the mouseV > 152 and the mouseV < 225 then
        go to frame "ltear867005°°°" of movie "FLWLT01"
      else
        nothing
      end if
    end if
  end if
end jumpVLB1